home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / prog / mui / modula / txt / muil.def < prev    next >
Text File  |  1996-08-14  |  5KB  |  178 lines
  1. DEFINITION MODULE MuiL{"muimaster.library",5}; (* note that version 5 is very old - if you need newer functions
  2.                                                   test this! 
  3.                                                *)
  4.  
  5. (***************************************************************************
  6. **
  7. ** $VER: MuiL.def 3.6 (13.8.96)
  8. **
  9. ** The following updates have been done by
  10. **
  11. **   Olaf "Olf" Peters <olf@informatik.uni-bremen.de>
  12. **
  13. ** $HISTORY:
  14. **
  15. **  13.8.96  3.6   : updated for MUI 3.6 release
  16. **  21.2.96  3.3   : updated for MUI 3.3 release
  17. ** 18.11.95  3.1   : updated for MUI 3.1 release
  18. **
  19. ***************************************************************************)
  20.  
  21. (*
  22. ** Modula-Interface for muimaster.library
  23. **
  24. ** MUI (c) 1993-96 by Stefan Stuntz
  25. **
  26. ** Modula-Interface done by Christian "Kochtopf" Scholz in 1993/94
  27. **
  28. ** If you got problems please contact :
  29. **
  30. **  ruebe@pool.informatik.rwth-aachen.de
  31. *)
  32.  
  33. FROM SYSTEM     IMPORT ADDRESS;
  34. FROM MuiClasses IMPORT mCustomClassPtr, mRenderInfoPtr, ClassDispatcher, MADFlagSet;
  35. FROM MuiD       IMPORT mPenSpecPtr, APTR, StrPtr ;
  36.  
  37. IMPORT
  38.   ed : ExecD,
  39.   gd : GraphicsD,
  40.   id : IntuitionD,
  41.   R,
  42.   ud : UtilityD ;
  43.  
  44. TYPE mImage     = ADDRESS;
  45. TYPE mImageInfo = ADDRESS;
  46.  
  47. VAR  
  48.      muiMasterVersion       : INTEGER;
  49.      muiMasterBase          : ed.LibraryPtr;
  50.  
  51. CONST
  52.      muiMasterMinVersion    = 4;
  53.      muiMasterName          = "muimaster.library";
  54.  
  55. PROCEDURE mNewObject 
  56.             (class{R.A0}    : StrPtr;
  57.              taglist{R.A1}  : ud.TagItemPtr) : APTR ; CODE -30;
  58.  
  59. PROCEDURE mDisposeObject
  60.             (obj{R.A0}      : APTR); CODE -36;
  61.  
  62. PROCEDURE mRequestA 
  63.             (app{R.D0}      : APTR;
  64.              win{R.D1}      : APTR;
  65.              flags{R.D2}    : LONGINT;
  66.              title{R.A0}    : StrPtr;
  67.              gadgets{R.A1}  : StrPtr;
  68.              format{R.A2}   : StrPtr;
  69.              params{R.A3}   : ud.TagItemPtr): LONGINT; CODE -42;
  70.  
  71.  
  72. PROCEDURE mAllocAslRequest
  73.             (reqtype{R.D0}  : LONGINT;
  74.              taglist{R.A0}  : ud.TagItemPtr) : APTR; CODE -48;
  75.  
  76. PROCEDURE mAslRequest 
  77.             (requester{R.A0}: APTR;
  78.              taglist{R.A1}  : ud.TagItemPtr) : BOOLEAN; CODE -54;
  79.  
  80. PROCEDURE mFreeAslRequest 
  81.             (requester{R.A0}: APTR); CODE -60;
  82.  
  83. PROCEDURE mError() : LONGINT; CODE -66;
  84.  
  85. PROCEDURE MakeObject
  86.             (objtype{R.D0}      : LONGINT;
  87.              params{R.A0}       : ud.TagItemPtr) : id.ObjectPtr; CODE -120;
  88.  
  89. (******************************************)
  90. (* functions to be used in custom classes *)
  91. (******************************************)
  92.  
  93. PROCEDURE moSetError
  94.             (num{R.D0}      : LONGINT) : LONGINT; CODE -72;
  95.  
  96. PROCEDURE moGetClass
  97.             (classname{R.A0}: StrPtr) : id.IClassPtr; CODE -78;
  98.  
  99. PROCEDURE moFreeClass
  100.             (classptr{R.A0} : id.IClassPtr); CODE -84;
  101.  
  102.  
  103. PROCEDURE moRequestIDCMP
  104.             (obj{R.A0}      : id.ObjectPtr;
  105.              flags{R.D0}    : id.IDCMPFlagSet); CODE -90;
  106.  
  107. PROCEDURE moRejectIDCMP
  108.             (obj{R.A0}      : id.ObjectPtr;
  109.              flags{R.D0}    : id.IDCMPFlagSet); CODE -96;
  110.  
  111. PROCEDURE moRedraw
  112.             (obj{R.A0}      : id.ObjectPtr;
  113.              flags{R.D0}    : MADFlagSet); CODE -102;
  114.  
  115. PROCEDURE moAddClipping
  116.             (mri{R.A0}  : mRenderInfoPtr;
  117.              left{R.D0},
  118.              top{R.D1},
  119.              width{R.D2},
  120.              height{R.D3} : INTEGER) : APTR; CODE -168;
  121.  
  122. PROCEDURE moRemoveClipping
  123.             (mri{R.A0}    : mRenderInfoPtr;
  124.              handle{R.A1} : APTR) ; CODE -174 ;
  125.  
  126. PROCEDURE moAddClipRegion
  127.             (mri{R.A0} : mRenderInfoPtr;
  128.              r{R.A1}   : gd.RegionPtr) : APTR ; CODE -180;
  129.  
  130. PROCEDURE moRemoveClipRegion
  131.             (mri{R.A0}    : mRenderInfoPtr;
  132.              handle{R.A1} : APTR) ; CODE -186;
  133.  
  134. PROCEDURE moBeginRefresh
  135.             (mri{R.A0}    : mRenderInfoPtr;
  136.              flags{R.D0}  : LONGINT) : BOOLEAN ; CODE -192 ;
  137.  
  138. PROCEDURE moEndRefresh
  139.             (mri{R.A0}    : mRenderInfoPtr;
  140.              flags{R.D0}  : LONGINT) ; CODE -198 ;
  141.  
  142. PROCEDURE moCreateCustomClass
  143.             (base{R.A0}         : ed.LibraryPtr;
  144.              supername{R.A1}    : StrPtr;
  145.              supermcc{R.A2}     : mCustomClassPtr;
  146.              datasize{R.D0}     : LONGINT;
  147.              dispatcher{R.A3}   : ClassDispatcher) : mCustomClassPtr;  CODE -108;
  148.  
  149. PROCEDURE moDeleteCustomClass
  150.             (mcc{R.A0}          : mCustomClassPtr) : BOOLEAN; CODE -114;
  151.  
  152.  
  153. PROCEDURE moObtainPen
  154.             (mri{R.A0}   : mRenderInfoPtr;
  155.              spec{R.A1}  : mPenSpecPtr;
  156.              flags{R.D0} : LONGCARD) : LONGINT ; CODE -156;
  157.  
  158. PROCEDURE moReleasePen
  159.             (mri{R.A0} : mRenderInfoPtr;
  160.              pen{R.D0} : LONGINT) ; CODE -162 ;
  161.  
  162.  
  163. (*************************************************************)
  164. (* layout function, use only in custom layout callback hook! *)
  165. (*************************************************************)
  166.  
  167. PROCEDURE moLayout
  168.             (obj{R.A0}    : id.ObjectPtr;
  169.              left{R.D0},
  170.              top{R.D1},
  171.              width{R.D2},
  172.              height{R.D3} : LONGINT;
  173.              flag{R.D4}   : LONGCARD) : BOOLEAN; CODE -126;
  174.  
  175. END MuiL.
  176.  
  177.  
  178.